home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 14-10.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  1.2 KB  |  58 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Solid(32), Hollow(32)
  6.  
  7. Rem Solid values
  8. DATA &hE03F,&hE03F,&hE03F,&h0007,&h0007,&h0007,&h0007,&h0007
  9. DATA &h0007,&h0007,&hE03F,&hE03F,&hE03F,&hFFFF,&hFFFF,&hFFFF
  10. DATA &h0000,&h0F80,&h0F80,&h0F80,&h7FF0,&h7FF0,&h7FF0,&h7FF0
  11. DATA &h7FF0,&h0F80,&h0F80,&h0F80,&h0000,&h0000,&h0000,&h0000
  12.  
  13. REM Hollow values
  14. DATA &hE03F,&hEFBF,&hEFBF,&h0F87,&h7FF7,&h7FF7,&h7FF7,&h7FF7
  15. DATA &h7FF7,&h0F87,&hEFBF,&hEFBF,&hE03F,&hFFFF,&hFFFF,&hFFFF
  16. DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0200,&h0000
  17. DATA &h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000,&h0000
  18.  
  19. OldMode = FGgetmode
  20. FGsetmode FGautomode
  21.  
  22. IF FGmouseini < 0 THEN
  23.    FGsetmode OldMode
  24.    FGreset
  25.    STOP
  26. END IF
  27.  
  28. FOR I = 0 TO 31
  29.    Read Solid(I)
  30. NEXT
  31. FOR I = 0 TO 31
  32.    Read Hollow(I)
  33. NEXT
  34.  
  35. FGsetcolor 15
  36. FGrect 0, FGgetmaxx, 0, FGgetmaxy
  37.  
  38. FGsetcolor 12
  39. Column = FGxalpha(FGgetmaxx/2) - 6
  40. LastRow = FGyalpha(FGgetmaxy) + 1
  41.  
  42. FOR Row = 0 TO LastRow
  43.    FGlocate Row, Column
  44.    FGtext "example 14-10", 13
  45. NEXT
  46.  
  47. FGmousevis 1
  48. FGwaitkey
  49. FGmouseptr Solid(), 6, 6
  50. FGwaitkey
  51. FGmouseptr Hollow(), 6, 6
  52. FGwaitkey
  53.  
  54. FGsetmode OldMode
  55. FGreset
  56.  
  57. END
  58.